13140 FORI=0TO42:IFASC(A$)<>CM%(I,1)THENNEXT:GOSUB995:GOTO13120
13160 ONI/10+1GOTO13170,13180,13190,13195,13197
13197 ONI-39GOTO102,102,102